(set msg1txt "Control Panel 6\nMartin Hunt 1996\n\nThis Program Is Shareware\nIf you use the program regularly\nplease send me the appropriate fee.\n\n")
(set msg2txt "Please read register.readme\nfor registration details\n\nFor Help E-Mail: Martin@mchunt.demon.co.uk")
(set msgtxt (cat msg1txt msg2txt))
(message msgtxt)
(welcome)
(set amitcpdir
(askdir
(prompt "Where is AmiTCP installed?")
(help @askdir-help)
(default "dh1:amitcp")
)
)
(set @default-dest amitcpdir)
(makeassign "amitcp" amitcpdir
(safe)
)
(copyfiles
(prompt "Copying Amiconnect to " acdest )
(help @copyfiles-help)
(source "mainprogram")
(dest "amitcp:bin")
(all)
(infos)
(confirm)
)
(makedir "amitcp:docs"
(infos)
(safe)
)
(set docdest
(askdir
(prompt "Where do you want the documentation to be installed?")
(help "You are strongly advised to accept the deafult directory\n as this will enable context sensitive help for the preferences editor")
(default "amitcp:docs")
)
)
(copyfiles
(prompt "Copying documentation to " docdest )
(help @copyfiles-help)
(source "docs")
(dest docdest)
(infos)
(all)
(confirm)
)
(set installnews
(askbool
(default 1)
(prompt "Do you wish to install a new postnews script\nso that GRn can postnews.\nThis script will also allow GRn and other newseditors\nto use Newsed's group signature option.")
(help @ask-bool)
)
)
(if (= installnews 1)
( ( set whichpostnews
(askbool
(default 0)
(prompt "Are you a Demon Internet subscriber?")
(help "Does you email address end in .demon.co.uk?\nIf it does select Yes else select No")
)
)
(if (= whichpostnews 0)
( (copyfiles
(prompt "Copying PostNews to Amitcp:bin ")
(help @copyfiles-help)
(source "amitcp/bin/postnews.nntpput")
(dest "amitcp:bin")
(newname "postnews")
(confirm)
)
(copyfiles
(prompt "Copying NNTP Put to Amitcp:bin ")
(help @copyfiles-help)
(source "amitcp/bin/nntpput")
(dest "amitcp:bin")
(confirm)
)
(copyfiles
(prompt "Copying Sendnews to Amitcp:bin ")
(help @copyfiles-help)
(source "amitcp/bin/sendnews")
(dest "amitcp:bin")
(confirm)
)
)
(copyfiles
(prompt "Copying PostNews to Amitcp:bin ")
(help @copyfiles-help)
(source "amitcp/bin/postnews.demon")
(dest "amitcp:bin")
(newname "postnews")
(confirm)
)
)
(copyfiles
(prompt "Copying Common News Stuff to Amitcp:bin ")
(help @copyfiles-help)
(source "amitcp/bin/all")
(dest "amitcp:bin")
(all)
(confirm)
)
)
(set fo 0)
)
(set installmail
(askbool
(default 1)
(prompt "Do you wish to install the mail daemon \nso that you can receive incoming mail")
(help @ask-bool)
)
)
(if (= installmail 1)
(
(copyfiles
(prompt "Copying Mail Daemon to Amitcp:serv ")
(help @copyfiles-help)
(source "amitcp/serv")
(all)
(dest "amitcp:serv")
(infos)
(confirm)
)
(copyfiles
(prompt "Appending Mail Daemon Inetd Entry to amitcp:db/inetd ")
(prompt "Where do you want Control Panel 6 to be installed?")
(help @askdir-help)
(default "sys:wbstartup")
)
)
(copyfiles
(prompt "Copying AmiTCP Control Panel to " @default-dest )
(help @copyfiles-help)
(source "ControlPanel6")
(dest cp5dest)
(infos)
(confirm)
)
(copyfiles
(prompt "Copying AmiTCP Control Panel to " @default-dest )
(help @copyfiles-help)
(source "c/cp6.exe")
(dest "c:")
(confirm)
)
(set cp5
(askdir
(prompt "Where do you want CP6's auxillary programs to be installed?")
(help @askdir-help)
(default "amitcp:cp")
)
)
(makeassign "CP" cp5
(safe)
)
(copyfiles
(prompt "Copying AmiTCP Control Panel's Auxillary Programs to "cp5)
(help @copyfiles-help)
(source "cp")
(all)
(dest cp5)
(infos)
(confirm)
)
(makedir "cp:prefs"
(prompt)
(infos)
(safe)
)
(Copyfiles
(prompt "Copying AmiTCP Control Panel Default Prefs to "cp5"/prefs")
(help @copyfiles-help)
(source "prefs")
(all)
(dest "cp:prefs")
(infos)
(confirm)
)
(Copyfiles
(prompt "Copying AmiTCP Control Panel Main Prefs to s:cp.config")
(help @copyfiles-help)
(source "s/cp.config.amiconnect")
(dest "s:")
(confirm)
(newname "cp.config")
)
(makedir "amitcp:usr"
(infos)
(safe)
)
(makedir "amitcp:usr/mail"
(infos)
(safe)
)
(makedir "amitcp:usr/news"
(infos)
(safe)
)
(makedir "amitcp:usr/spool"
(infos)
(safe)
)
(makedir "amitcp:usr/lib"
(infos)
(safe)
)
(makedir "env:sana2"
(infos)
(safe)
)
(makedir "envarc:sana2"
(infos)
(safe)
)
(message "I now need to setup your \nusr,news,mail,spool and lib directories\nIf this is your first AmiTCP setup\n just use the defaults\nif not specify your current directories" (SAFE))
(set usrdir
(askdir
(prompt "Where is your usr: directory")
(help "This is the directory where all your \n news,mail,lib,spool directories are usually kept")
(default "amitcp:usr")
)
)
(set uunewsdir
(askdir
(prompt "Where is your uunews: directory")
(help "This is the directory where all your \n news articles will be stored")
(default "amitcp:usr/news")
)
)
(set uumaildir
(askdir
(prompt "Where is your uumail: directory")
(help "This is the directory where all your \n mail will be stored")
(default "amitcp:usr/mail")
)
)
(set uulibdir
(askdir
(prompt "Where is your uulib: directory")
(help "This is the directory where various files are stored/n including your newsgroup, signature, header and config files/n/n It is NOT your libs: library directory")
(default "amitcp:usr/lib")
)
)
(makeassign "uulib" uulibdir (SAFE))
(set uuspooldir
(askdir
(prompt "Where is your uuspool: directory")
(help "This is the directory where all your \n outgoing mail, news and the incoming news batchfile \nwill be stored")
(default "amitcp:usr/spool")
)
)
(set intro ("; This file contain assigns to important directories\n"))
(set intro2 ("; You may need to change the from what values are set\n"))
(set firststline ("path amitcp:bin add \n"))
(set line1 ("assign usr: %s \n" usrdir))
(set line2 ("assign uunews: %s \n" uunewsdir))
(set line3 ("assign uumail: %s \n" uumaildir))
(set line4 ("assign uuspool: %s \n" uuspooldir))
(set line5 ("assign uulib: %s \n" uulibdir))
(set line6 ("assign inet: amitcp: \n"))
(textfile
(dest "amitcp:bin/amiconnect.dos")
(append intro)
(append intro2)
(append firstline)
(append line1)
(append line2)
(append line3)
(append line4)
(append line5)
(append line6)
)
(textfile
(dest "t:newsgroups")
(append "comp.sys.amiga.announce 7\n")
(append "comp.sys.amiga.misc 7\n")
(append "demon.ip.support.amiga 7\n")
)
(textfile
(dest "uulib:seq")
(append "1")
)
(run "type t:newsgroups >> uulib:newsgroups"
)
(set line1 ("Assign Amitcp: %s \n" amitcpdir))
(set line15 ("Assign Inet: %s \n" amitcpdir))
(set line2 ("Assign Cp: %s \n" cp5))
(set line3 ("path amitcp:bin add \n"))
(set line4 ("path cp: add \n"))
(startup "CP6"
(prompt "Adding assigns and paths to s:user-startup")
(help @startup-help)
(command line1)
(command line15)
(command line2)
(command line3)
(command line4)
)
(message "We must now setup Amiconnect\nWe will start with your User Details"
(help "You need to set up various environment variable so that Amiconnect will function correctly.\nThe following part of the installer will assist in this procedure")
(safe)
)
(set defuser "user"
)
(set defdomain "domain"
)
(set defnode "node"
)
(set username
(askstring
(prompt "Enter Your User Name")
(help "Your user name is the bit before the @ in you email address\ne.g. USERNAME@nodename.domainname\nthis should also be EXACTLY the same as you entered in the Amitcp installer")
(default defuser)
)
)
(set nodename
(askstring
(prompt "Enter Your Node Name")
(help "Your node name is the bit directly after the @ in you email address\ne.g. username@NODENAME.domainname")
(default defnode)
)
)
(set domainname
(askstring
(prompt "Enter Your Domain Name")
(help "Your domain name is the last bit of your email address\nThis may be more than one word separated by a . such as .demon.co.uk\ne.g. username@nodename.DOMAINNAME\n\nyour domain name must start with a .")
(help "This is the name which will be sent with your mail and news messages\nIt helps people see who you really are, if you do not set this you will be known as realname")
(default defreal)
)
)
(textfile
(dest "env:realname")
(append realname)
)
(textfile
(dest "envarc:realname")
(append realname)
)
(set defhome "Home"
)
(set home
(askdir
(prompt "Where is your home: directory?")
(help "This is the directory which many programs use to store data relevant to the current user.\n\nIt is also quite often the default directory for FTP downloads and saving WWW pages")
(default defhome)
)
)
(textfile
(dest "env:ac!home")
(append home)
)
(message "We now need to setup your modem details, this may be tricky, so have your modem manual handy."
(safe)
)
(set serial
(askfile
(prompt "What serial device driver are you using?")
(help "This is the program that allows the Amiga to talk to the modem via your serial port.\n\nThe driver supplied with your Amiga is called serial.device but you are advised to use an improved driver such as artser.device")
(default "devs:serial.device")
)
)
(textfile
(dest "env:ac!serial")
(append serial)
)
(set devno
(asknumber
(prompt "What serial port number are you using?")
(help "The inbuilt serial port is 0, unless you have an additional serial ports added to your Amiga you should use this port")
(default "0")
)
)
(textfile
(dest "env:ac!devno")
(append devno)
)
(set bdrte
(askchoice
(prompt "What baud rate do you wish to use?")
(help "This is the rate that your Amiga communicates with the modem.\n\nIf you are using a 14400 modem use 19200 or 38400\nIf you are using a 28800 modem use 38400 or 57600\n\nPlease note a standard Amiga will not cope with rates above 57600.")
(prompt "What protocol do you wish to \nuse to connect to the net?")
(help "This is the tcp/ip protocol that you will use to interact with internet, the three main protocols are\n\nSLIP - Serial Line Internet Protocol\nCSLIP as above with compression\nPPP - Point to Point Protocol")
(choices "SLIP" "CSLIP" "PPP")
(default 1)
)
)
(if (= slip 0) (set slipdev "SLIP"))
(if (= slip 1) (set slipdev "CSLIP"))
(if (= slip 2) (set slipdev "PPP"))
(textfile
(dest "env:ac!slipdev")
(append slipdev)
)
(set init
(askstring
(prompt "Enter Modem Initialisation String")
(help "This is the command you send to you modem to reset/initialise it.\n This is nearly always ATZ")
(default "ATZ")
)
)
(textfile
(dest "env:ac!init")
(append init)
)
(set dial
(askstring
(prompt "Enter Your Modems Dial Command")
(help "This will depend on whether you are connected to a pulse dial exchange or a tone dial compatable exchange\nMost modern exchanges are tone dial and the usual command is ATDT, for pulse dial it is usually ATDP.")
(default "ATDT")
)
)
(textfile
(dest "env:ac!dial")
(append dial)
)
(set helpdtr "The DTR (Data Terminal Ready) signal tells the modem to drop the call once all data has stopped.\n As amiconnect needs to stop data transmission while it switches from the serial device to the network (slip/ppp) driver, we need to overide")
(set helpdtr2 "this signal.\n\n On a USRobotics Sportster modem this command is AT&d0")
(set helpdtrt
(cat helpdtr helpdtr2)
)
(set dtr_on
(askstring
(prompt "Enter the command to\noveride DTR (Data Terminal Ready)")
(help helpdtrt)
(default "AT&d0")
)
)
(textfile
(dest "env:ac!dtr_on")
(append dtr_on)
)
(set dtr_off
(askstring
(prompt "Enter the command to disable\n the DTR (Data Terminal Ready) overide")
(help "This is the command which resets the DTR (Data Terminal Ready) overide to off.\n\nFor a USRobotics Sportster this is AT&d2")
(default "AT&d2")
)
)
(textfile
(dest "env:ac!dtr_off")
(append dtr_off)
)
(set hang
(askstring
(prompt "Enter the command to hang up the modem")
(help "This command is needed to disconnect your modem call to your service provider, failure to set this correctly could lead to a very large telephone bill!\n\nThe usual command is ATH")
(default "ATH")
)
)
(textfile
(dest "env:ac!hang")
(append hang)
)
(set cmd
(askstring
(prompt "What is the escape code to return your modem to command mode?")
(help "This command is needed to switch your modem into its command mode in the middle of data transmission. It is referred to commonly as the escape code.\n\nOn USRobotics Sportster Modems it is +++")
(default "+++")
)
)
(textfile
(dest "env:AC!cmd")
(append cmd)
)
(set dte1 "This is probably the most problematic command to enter.\n In manuals it may be referred to as the DTE Rate, Terminal to Modem, serial port rate or simply Data Rate.")
(set dte2 "\nYou need to set this command so that the data rate is fixed.\n\n On a USRobotics Sportster the command is at&b1\n\nOn some other modems the command is /n")
(set dtehelp
(cat dte1 dte2)
)
(set datarate
(askstring
(prompt "Enter the command to set the serial port data rate (DTE)")
(help dtehelp)
(default "AT&b1")
)
)
(textfile
(dest "env:ac!datarate")
(append datarate)
)
(set ok
(askstring
(prompt "What string does your modem return when a command has been completed successfully?")
(help "This is usually OK.\n\nIf this isn't set correctly Amiconnect will not know whether your modem has completed what it has been asked to do")
(default "OK")
)
)
(textfile
(dest "env:ac!ok")
(append ok)
)
(message "We now need to enter details about your service provider"
(SAFE)
)
(set ip1 "This is the number which you will be given when you open your internet")
(set ip2 "account (unless you have dynamic access), it is in the form of 4 numbers")
(set ip3 "such as ???.???.???.???\n\nIf you have dynamic access and are using PPP")
(set ip4 "please use 0.0.0.0 as your ip number")
(set iphelp
(cat ip1 ip2 ip3 ip4)
)
(set ipno
(askstring
(prompt "Enter Your IP Number")
(help iphelp)
(default "0.0.0.0")
)
)
(textfile
(dest "env:ac!ipno")
(append ipno)
)
(set gate
(askstring
(prompt "Enter your providers IP number")
(help "This is the numeric IP address of your internet providers main computer that you logon to, often called the gateway address.")
(default "???.???.???.???")
)
)
(textfile
(dest "env:ac!gate")
(append gate)
)
(set defmail ("post%s" domainname))
(set mailserver
(askstring
(prompt "Enter the address of your providers mailserver")
(help "The mailserver is the computer which stores your email, you need to enter this address inorder to collect mail.\nIt is often called post.provider.name, gpo.provider.name or mail.provider.name")
(default defmail)
)
)
(textfile
(dest "env:ac!mailserver")
(append mailserver)
)
(set defnews ("news%s" domainname))
(set newsserver
(askstring
(prompt "Enter the address of your providers news server")
(help "The news server is the computer which stores usenet news, you need to enter this if you wish to download news.\n This is commonly news.provider.name.")
(default defnews)
)
)
(textfile
(dest "env:ac!newsserver")
(append newsserver)
)
(set pop1
(askstring
(prompt "Enter the name of your main pop")
(help "It is suggested that you enter the location of the main pop here such as London.")
(default "Yourtown")
)
)
(textfile
(dest "env:ac!pop1")
(append pop1)
)
(set phone1
(askstring
(prompt "Enter the phone number of your main pop")
(help "Enter the phone number you usually dial to connect your computer to the internet")
(default "01234 5678")
)
)
(textfile
(dest "env:ac!phone1")
(append phone1)
)
(set pop2
(askstring
(prompt "Enter the name of your backup pop")
(help "Many providers have additional pops which you may use when your pop is down or engaged, if so enter your second choice of pop here.")
(default "Yourtown")
)
)
(textfile
(dest "env:ac!pop2")
(append pop2)
)
(set phone2
(askstring
(prompt "Enter the phone number of your backup pop")
(help "Enter the phone number you dial if your first pop is unable to connect your computer to the internet")
(default "01234 5678")
)
)
(textfile
(dest "env:ac!phone2")
(append phone2)
)
(set login1 "The standard login procedure will cope with most service providers. If your login procedure is similar to that below please use the standard procedure, otherwise you will need to use the advanced login")
(set login2 "\n\nSystem sends login/username prompt, you reply with username\nThe system then sends password prompt, you reply with your password\nThe system then asks what protocol you are using (slip or PPP), you reply either slip or ppp\n")
(set login3 "you are then logged on and on the net.\n\n the actual prompts can be changed but they need to be in the above order and shouldn't have any additional requests for information\n\n")
(set login4 "The advanced login requires you to enter quite a bit of data, so it is advised that if unsure you try the standard login first and then if that fails use the advanced login script to attempt to setup the advanced login.")
(set loginhelp
(cat login1 login2 login3 login4)
)
(set logintype
(askbool
(prompt "Do you want to use the standard or advanced login procedure?\n\n(Please see help for more details)")
(help loginhelp)
(choices "Standard Login" "Advanced Login")
(default 1)
)
)
(if (= logintype 1)
;Standard login clauses
(
(set acprompt
(askstring
(prompt "Enter login prompt")
(help "This is the initial prompt which is usually Login: or User:\nIt is often advisable to miss off the first character so login: would be ogin:")
(default "ogin:")
)
)
(textfile
(dest "env:ac!prompt")
(append acprompt)
)
(set loginname
(askstring
(prompt "Enter your response to the login prompt")
(help "This is usually your username or your nodename")
(default username)
)
)
(textfile
(dest "env:ac!loginname")
(append loginname)
)
(set passprompt
(askstring
(prompt "Enter the prompt that requests your password")
(help "What text is displayed just before you usually enter your password?\nThis is usually pass: or password:")
(default "assword:")
)
)
(textfile
(dest "env:ac!passprompt")
(append passprompt)
)
(set password
(askstring
(prompt "Enter your password")
(help "What do you type when asked for your password")
(default "********")
)
)
(textfile
(dest "env:ac!password")
(append password)
)
(textfile
(dest "env:ac!loginscript")
(append "NOCUSTOMSCRIPTNEEDED")
)
(set protocol
(askstring
(prompt "Enter the protocol prompt")
(help "This is the prompt that asks what protocol you are using.\nAmiconnect will reply to this prompt with either slip or ppp depending on how you set up the modem details")
(default "rotocol:")
)
)
(textfile
(dest "env:ac!protocol")
(append protocol)
)
)
(
(set sendcmd "#")
(textfile
(dest "amitcp:db/aclogonscript")
)
(until (= sendcmd "\0")
(
(set rcvcmd
(askstring
(prompt "Enter Prompt\n\n(leave blank to exit dialscript editor")
(help "Enter the text which your internet provider has sent for you to reply to, e.g. login:")
)
)
(set sendcmd
(askstring
(prompt "Enter Response To Prompt - " rcvcmd " \n\n(leave blank to exit dialscript editor)")
(help "Enter the text which you send after receiving the prompt mentioned in previous data entry box")
